home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / compile_to_jvm2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  4.1 KB  |  252 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_jvm.h"
  9. void r42copy_from(T42 C,T42 a1,int a2){
  10. int _i=0;
  11. _i=a2;
  12. while (!((_i)<(0))) {
  13. (C)[_i]=((a1)[_i]);
  14. _i=(_i)-(1);
  15. }
  16. }
  17. T42 r42realloc(T42 C,int a1,int a2){
  18. T42 R=NULL;
  19. R=calloc(a2,sizeof(T0*));
  20. r42copy_from(R,C,(a1)-(1));
  21. return R;
  22. }
  23. void r24set_all_with(T24 C,T0* a1,int a2){
  24. int _i=0;
  25. _i=a2;
  26. while (!((_i)<(0))) {
  27. (C)[_i]=(a1);
  28. _i=(_i)-(1);
  29. }
  30. }
  31. void r24copy_from(T24 C,T24 a1,int a2){
  32. int _i=0;
  33. _i=a2;
  34. while (!((_i)<(0))) {
  35. (C)[_i]=((a1)[_i]);
  36. _i=(_i)-(1);
  37. }
  38. }
  39. T24 r24realloc(T24 C,int a1,int a2){
  40. T24 R=NULL;
  41. R=calloc(a2,sizeof(T0*));
  42. r24copy_from(R,C,(a1)-(1));
  43. return R;
  44. }
  45. void r533copy_from(T533 C,T533 a1,int a2){
  46. int _i=0;
  47. _i=a2;
  48. while (!((_i)<(0))) {
  49. (C)[_i]=((a1)[_i]);
  50. _i=(_i)-(1);
  51. }
  52. }
  53. T533 r533realloc(T533 C,int a1,int a2){
  54. T533 R=NULL;
  55. R=calloc(a2,sizeof(T0*));
  56. r533copy_from(R,C,(a1)-(1));
  57. return R;
  58. }
  59. void r778set_all_with(T778 C,T0* a1,int a2){
  60. int _i=0;
  61. _i=a2;
  62. while (!((_i)<(0))) {
  63. (C)[_i]=(a1);
  64. _i=(_i)-(1);
  65. }
  66. }
  67. int r778fast_index_of(T778 C,T0* a1,int a2){
  68. int R=0;
  69. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  70. R=(R)+(1);
  71. }
  72. return R;
  73. }
  74. void r778copy_from(T778 C,T778 a1,int a2){
  75. int _i=0;
  76. _i=a2;
  77. while (!((_i)<(0))) {
  78. (C)[_i]=((a1)[_i]);
  79. _i=(_i)-(1);
  80. }
  81. }
  82. T778 r778realloc(T778 C,int a1,int a2){
  83. T778 R=NULL;
  84. R=calloc(a2,sizeof(T0*));
  85. r778copy_from(R,C,(a1)-(1));
  86. return R;
  87. }
  88. void r51set_all_with(T51 C,T0* a1,int a2){
  89. int _i=0;
  90. _i=a2;
  91. while (!((_i)<(0))) {
  92. (C)[_i]=(a1);
  93. _i=(_i)-(1);
  94. }
  95. }
  96. int r51fast_index_of(T51 C,T0* a1,int a2){
  97. int R=0;
  98. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  99. R=(R)+(1);
  100. }
  101. return R;
  102. }
  103. void r51copy_from(T51 C,T51 a1,int a2){
  104. int _i=0;
  105. _i=a2;
  106. while (!((_i)<(0))) {
  107. (C)[_i]=((a1)[_i]);
  108. _i=(_i)-(1);
  109. }
  110. }
  111. T51 r51realloc(T51 C,int a1,int a2){
  112. T51 R=NULL;
  113. R=calloc(a2,sizeof(T0*));
  114. r51copy_from(R,C,(a1)-(1));
  115. return R;
  116. }
  117. void r995set_all_with(T995 C,T0* a1,int a2){
  118. int _i=0;
  119. _i=a2;
  120. while (!((_i)<(0))) {
  121. (C)[_i]=(a1);
  122. _i=(_i)-(1);
  123. }
  124. }
  125. void r995copy_from(T995 C,T995 a1,int a2){
  126. int _i=0;
  127. _i=a2;
  128. while (!((_i)<(0))) {
  129. (C)[_i]=((a1)[_i]);
  130. _i=(_i)-(1);
  131. }
  132. }
  133. T995 r995realloc(T995 C,int a1,int a2){
  134. T995 R=NULL;
  135. R=calloc(a2,sizeof(T0*));
  136. r995copy_from(R,C,(a1)-(1));
  137. return R;
  138. }
  139. int r9hashcode(T9 C,int a1){
  140. int R=0;
  141. int _i3=0;
  142. int _i2=0;
  143. int _i1=0;
  144. _i2=a1;
  145. _i3=(a1)/(2);
  146. /*IF*/if ((_i3)>(6)) {
  147. _i3=6;
  148. }
  149. /*FI*/while (!((_i3)==(0))) {
  150. R=(R)+(((unsigned char)(C)[_i1]));
  151. R=(R)+((((unsigned char)(C)[_i2]))*(_i2));
  152. _i1=(_i1)+(1);
  153. _i2=(_i2)-(1);
  154. _i3=(_i3)-(1);
  155. }
  156. /*IF*/if ((R)<(0)) {
  157. R=-(R);
  158. }
  159. /*FI*/return R;
  160. }
  161. int r9fast_memcmp(T9 C,T9 a1,int a2){
  162. int R=0;
  163. int _i=0;
  164. R=((C)[0])==((a1)[0]);
  165. _i=(a2)-(1);
  166. while (!(((_i)==(0))||(!(R)))) {
  167. R=((C)[_i])==((a1)[_i]);
  168. _i=(_i)-(1);
  169. }
  170. return R;
  171. }
  172. int r9fast_index_of(T9 C,char a1,int a2){
  173. int R=0;
  174. while (!(((R)>(a2))||((a1)==((C)[R])))) {
  175. R=(R)+(1);
  176. }
  177. return R;
  178. }
  179. void r9copy_from(T9 C,T9 a1,int a2){
  180. int _i=0;
  181. _i=a2;
  182. while (!((_i)<(0))) {
  183. (C)[_i]=((a1)[_i]);
  184. _i=(_i)-(1);
  185. }
  186. }
  187. T9 r9realloc(T9 C,int a1,int a2){
  188. T9 R=NULL;
  189. R=calloc(a2,sizeof(char));
  190. r9copy_from(R,C,(a1)-(1));
  191. return R;
  192. }
  193. void r36copy_from(T36 C,T36 a1,int a2){
  194. int _i=0;
  195. _i=a2;
  196. while (!((_i)<(0))) {
  197. (C)[_i]=((a1)[_i]);
  198. _i=(_i)-(1);
  199. }
  200. }
  201. T36 r36realloc(T36 C,int a1,int a2){
  202. T36 R=NULL;
  203. R=calloc(a2,sizeof(T0*));
  204. r36copy_from(R,C,(a1)-(1));
  205. return R;
  206. }
  207. void r579set_all_with(T579 C,T0* a1,int a2){
  208. int _i=0;
  209. _i=a2;
  210. while (!((_i)<(0))) {
  211. (C)[_i]=(a1);
  212. _i=(_i)-(1);
  213. }
  214. }
  215. void r579copy_from(T579 C,T579 a1,int a2){
  216. int _i=0;
  217. _i=a2;
  218. while (!((_i)<(0))) {
  219. (C)[_i]=((a1)[_i]);
  220. _i=(_i)-(1);
  221. }
  222. }
  223. T579 r579realloc(T579 C,int a1,int a2){
  224. T579 R=NULL;
  225. R=calloc(a2,sizeof(T0*));
  226. r579copy_from(R,C,(a1)-(1));
  227. return R;
  228. }
  229. void r392set_all_with(T392 C,T0* a1,int a2){
  230. int _i=0;
  231. _i=a2;
  232. while (!((_i)<(0))) {
  233. (C)[_i]=(a1);
  234. _i=(_i)-(1);
  235. }
  236. }
  237. void r392copy_from(T392 C,T392 a1,int a2){
  238. int _i=0;
  239. _i=a2;
  240. while (!((_i)<(0))) {
  241. (C)[_i]=((a1)[_i]);
  242. _i=(_i)-(1);
  243. }
  244. }
  245. T392 r392realloc(T392 C,int a1,int a2){
  246. T392 R=NULL;
  247. R=calloc(a2,sizeof(T0*));
  248. r392copy_from(R,C,(a1)-(1));
  249. return R;
  250. }
  251.  
  252.